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0001 C 8 
O08 : Version: *v04-000' 
0008 | “Si apigageregr ana ott yiapapaieecagte eerie ag ote terpenes arta 
t 
9006 Ce COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ‘ 0 
000 C* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 0 
0008 Cs ALL RIGHTS RESERVED. e | 4 
0009 ® 
0010 Ce THIS SOFTWARE IS FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED " 0 
0011 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 0 
9012 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
1 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 0 
9015 Ce TRANSFERRED. * 9 
& ® 
0017 ss C*®~=sC THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 05 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 02 
9019 ce CORPORAT I e 92 
ee ® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 02 
0058 ce SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 8s 
*® 
02 
0095 Tveneiateendias ciaiiaiatelaeaceenatanisdind ina dimnestindtesteniah hiiiaiaaadhamnaniiietatitdienn | 3 
Pe 
0027 02 
oo : c Author Brian Porter Creation Date 31-MAY-1981 os 
00 03) 
0031 Subroutine PCL11R (Lun) 03 
9032 03 
003 c++ 03 
Oe C Functional description: 83 
Cc 
0036 c This routine Staplers error log entries made by the 03 
it 34 c PCL11-B receiver driver. 83 
c 
9059 C Modified by: 03 
Cc 
0041 C v03-003 SARO228 Sha A. Reynolds, 28-Mar-1984 03 
O06¢ Changed the call to UCBSi_OWNUIC to ORBSL_OWNER. o3 
Gods C v03-002 SAR0089 Sharon A. Reynolds, 20-Jun-1983 83 
5 C Changed the care tege control in the ‘format’ statements 
Bnee ‘ for use with ERF. | 83 
0048 «=i V03-001 SAR0040 Sharon A. Reynolds, 8-Jun-1983 | 3 
seb : Removed brief/cryptic support. | ; 
0051 sc v02-002 BP0002 Brian Porter, 23-NOV-1981 ; 
B23¢ ra Minor edit. | : 
¢ | 
54 v02-001 8P0001 Brian Porter, 30-SEP-1981 | 3 
rer Corrected call to uba_mapping. | 3 
28 C Added ‘device attention’ support. 3 
5 cre | 3 
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integer*4 
integert4 
integer*4 
integer*4 
integer*4 
integer*4 
integer*4 
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integer*4 
integert4 
integer*4 
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integer*4 
integert4 
integert4 
integer*4 
integer*4 


character*26 
dat 


data 
data 
data 
data 
data 
data 
data 


character*13 


data 
data 


character*22 
data 
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include ‘src$:msghdr.for /nolist’ 
include ‘src$:deverr.for /nolist' 


lun 


),rdbc) 
),rdba) 


“ c) 
C(emb$l_dv_regsav(6) ,ucb$l_lr_dpn) 
Cemb$l_dv_regsav(7) ,ucb$l_lr_dpr) 
Cemb$l_dv_regsav(8) ,ucb$l_lr_fmpr) 
compar gv -regse (G) cbse Lr_pmpr) 

ou 


(emb$\_dv_regsav( chet trig Lk) 
(emb$l_dv_regsav(11) ,ucb$l_devdepend) 
compressc 

compress4 


response_bits 
current_or_last_transmitter 
selected_map_register 


vircr (0:7) 

vircr (0) /*RECEIVE DATA®'/ 

vircr(1) /*RECEIVER INITIALIZE*'/ 
vircr(2) /‘INHIBIT ADDRESS INCREMENT®*®'/ 
vircr(3) /*DATA INPUT READY*'/ 
vircr(4) /*EXTENDED BUS ADDRESS 16*'/ 
vircr(5) /"EXTENDED BUS ADDRESS 17*'/ 
virer ts) /* INTERRUPT ENABLE®*'/ 
vircr(7) /*LOAD SILO#'/ 

v rer sig; '5) 

vercr(13) /*RECEIVE WORD*'/ 

vercr(14) /*RECEIVER NPR*'/ 

vercr(15) *"REJECT#'/ 

virsr (4:15) 

virsr (4) /*CHANNEL OPEN®'/ 
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Cad UL LLL Ld AAA IAAI AAAI 


igo 0:19:35 


sr 
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0273 Gata virsr(5) /*REJECT COMPLETE*'/ 
8 74 data virer tg) /*BUSY*'/ 
75 data virsr(7) /*SUC TXFe'/ 
0 £8 data virerse /*DATA OUTPUT READY*'/ 
027 data virers ) /*BYTE oye OVERFLOW*'/ 
0278 data virsr(10) /*TIMEOU 
0279 data virsre(11) PPAR Tet 
0280 data wirerniG /* TRANSMISSION ERROR®'/ 
0281 data virsr(13) /*MEMORY OVERFLOW*'/ 
0 B¢ data virsr(14) J NON-EXISTENT LOCATION®'/ 
8 Bz data virsr(15) /*ERROR*'/ ‘ 
0285 character*29 response_a(0:3) 
0286 data response_a(0) /'TRANSMITTER ERROR/OFF=LINE*'/ 
0287 data response_a(1) /'NULL CYCLE®'/ 
0288 data response_ =8(¢) /*VALID WORD/CRC ON DATA LINES*'/ 
1334 data response_a(3) /*LAST CRC ON DATA LINES*'/ 
0291 character*28 response_b(0:3) | 
0292 data response_b(0) /*RECEIVER ERROR/OFF-LINE*'/ 
0293 data response_b(1) /'*NULL CYCLE®'/ 
0294 data response_ a /*CHECK FAILURE PREVIOUS DATA*'/ 
5944 data response_b(3) /"ACKNOWLEDGE CRC OR DATA®'/ 
0297 
0298 c++ 
5344 c The format of the receiver driver buffer is as follows. ; 
c 
0301 c Goeceeceeeooooooooooeeoooeoosesooeeccecen + 
030 c : rer H 
030 Cc tem womens wecemrer cee scwmwmconm mene emcees eee eon mm ee oh 
0304 rd : sr H 
0305 Cc Geeceecesooseeesoooseoesoososesoescoce + 
0306 c ‘ ucbSw_ rddb } 
0307 c ¢eeeeceoeeoesoweeocososeesoesooeoccoca + 
0308 Cc : rdbc } 
0309 Cc deme eeer nen weno erm erence nr mwocee Seer eee ee eee + 
0310 c : rdba H 
031 1 c peso eee e eee ee cece a ee eo er $ 
O31¢ C : rdcrc : | 
031 - pecs ew anew ween eoee ee ce nee eee eee we woon} 
0314 Cc : ucb$w_lr_dpn } 
Bele Cc twee owen cern cere on BSI age cece nme ones oi 
c ' uc r r ' 
031 7 Cc poem mace I, i id sa oe ee ee + 
0318 ": : ucb$l_lr_fmpr } 
031 9 c ¢eereese eer oceeoeane bhstette pak ee eee ep ee ee . a 
0320 C : ucb$l_lr_pmpr : 
0353 Cc ger ree ee ces Ue ster jablk eee eee rman + 
c H uc r ' - 
6356 Cc tame oceas S2eoo nese owe noes ea 9 ee eer eee ee } 
0324 c : ucb$l _devdepend : 
0325 Cc Gomer tone nm em earn ceo wees ee woe eeececeos 
8359 Cc : ucb$w_ sts ; 
327 Cc $eooeeeesoosoecoeooescoscesoesoesoeccoe + 
0328 c-- 
0329 | 
| 
| 


| 
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call fretof (lun) 
call dhead1 (lun,*UBA PCL11 (RECEIVER) ') 
call Linchk (lun,2) 


write(lun,10) "RCR'. rcr 
10 format(/' ',t8,a,t24,28.4) 


call output (lun,rcr,vircr,0,0,7,'0") 
current_or_last_transmitter = LibSextzv(8,5,rcr) 
call Linchk (lun,1) 

write(lun,15) "CURRENT/LAST TRANSMITTER ID# ', 


1 current_or_last_transmitter,'. 
format(" °,t%0,a,7<compress4 (current_or_last_transmitter)>,a) 
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call output (lun. rcr,v2rcr,13,13,15,'0") 
call Linchk (Llun,1) 


write(lun,20) *RSR' rsr 
20 format(' *,t8,a,t24,28.4) 


response_bits = Lib$extzv(0,2.rsr) 
call Linchk (lun,1) 


write(lun,25) response_a(response_bits) ; 
25 format(' *,t40,a<compressc (response_a(response_bits))>) 


WWW 
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ROOD 


response_bits = Lib$Sextzv(2,2,rsr) 
call Linchk (lun,1) 


write(lun,30) response_b(response_bits) ; 
30 format(* *,t40,a<compressc (response_b(response_bits))>) 


call output (lun.rsr,virsr.4,4,15,'0") 
call Linchk (lun,1) 


write(lun,.35) ‘UCBSW_RDDB* .rddb 
35 format(' *,t8,a,t24,28.4) 


call Linchk (lun,1) 


write(lun,40) *RDBC' .rdbc 
40 format(' °,t8,a,t24,28.4) 


call Linchk (lun,1) 


Be ee SSS eesey 


wr 


a CR RC COO CC COCOCO OOS, 
Co 
“ 


= 


VAX=-11 FORTRAN it Pears Page 4 


DISKSVMSMASTER: 


«SRCIJPCL11R.FOR; 1 


a ee = ) 


4 
PCL1I1R 1 -1984 00:12:35 VAX-11 FORTRAN V3.4-56 P 
* 198 90:19:83 age 5 


-Sep- DISKSVMSMASTER: CERF .SRCJPCL11R.FOR;1 | 

0387 write(Lun,45) ‘RDBA',rdba | 
O88 45 format(’ ',t8,a,t24,28.4) 
Be call calc_map (lun,4,rcr,rdba) 
039 call Linchk (lun,1) 
0398 “ 
0394 
0 99 50 format(' '\t8,a,t24,28.4) 
3944 if (emb$w_hd_entry .ne. 98) then 
0399 if (ucb$l_lr_dpn .ne. 0) then 

01 call uba_datapath (lun,ucb$l_lr_dpn,ucb$l_lr_dpr) 

Og endif 

Be call calc_map2 (4,rcr,rdba,selected_map_register) 


call uba_mapping (lun,selected_map_register,ucb$l_lr_fmpr) 


1 Ubsextav (16,16,emb$l_dv_iosb1) .gt. 512 
' selected nap_register ene. 0 

a | Fe ccna (Lun, (selected_map_register-1),ucb$l_lr_pmpr) 
endif 

call Linchk (lun,1) 


write(lun,55) 
55 format(' *,:) 


call orb$l_owner (Lun,emb$l_dv_ownuic) 


write(lun,50) *RDCRC' dere 


call ucb$l_char (lun,emd$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 


call ucb$l_opcnt (lun,emb$l_dv_opcnt) 

call ucb$w_errcnt ‘lun,emb$w_dv_errcnt) 

call Linchk (lun,i) 

write(iun,65) ucd$l_trigblk | 
| 
| 
| 
| 
| 
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65 format(’ ',t8,UCBSC_TRIGBLK',t24,28.8) 
if (emb$w_hd_entry .ne. 98) then 
call Linchk ‘lun,1) 
write(lun,55) 
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call pcllir_qio (lun,emb$w_dv_ func) 
call irp$Sw_bcnt (Lun,emb$w_dv_bcent) 


= 
“ 


oc 
4 
re call irp$Sw_boff (lun,emb$w_dv_boff) | 9 
29 call irpSl_pid (Lun,emb$l_dv_rqpid) 8 
| 
0626 call irp$q_iosb (Lun,emb$l_dv_iosb1) | Q 
Bee endif | 0 
54 0 
poe? return 8 
56 end 
| 8 
65 
| 02 
PROGRAM SECTIONS $5 
Name Bytes Attributes | 8s 
0 1175 PIC CON REL LCL SHR EXE RD NOWRT LONG | O¢ 
1 SPDATA 64 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 02 
g SLOCAL 1388 PIC CON REL LCL NOSHR NOEXE RD WRT LONG | O¢ 
EMB 512. PIC OVR REL GBL SHR NOEXE RD WRT LONG | 8 
Total Space Allocated 3339 | 03 
02 
ENTRY POINTS 8 
Address Type Name 8 
0-00000000 PCL11R Os 
02 
VARIABLES Os 
ame Address Type Name | 83 
URRENT_OR_LAST_TRANSMITTER -0000001C L*1 EMBSB_DV_CLASS 03 
mBSB_DV_ERTCNT -00000011 L*l EMBS$B_DV_ERTMAX | 03 
MBS$B_DV_NAMLNG - 9000054 Le] EMBSB_DV~SLAVE | 
MBSB_DV_TYPE - 9000 6 I*4 EMBSL-DV~CHAR 
MBSL-DV"10SB1 - 16 1*4 EMBSL“DV~10SB2 
MBSL-DV"MEDIA ~0000004E 1*4 EMBSL-DV"NUMREG 
MBSL~DV"OPCNT -00 900 1*4 EMBSL-DV~OWNUIC 
MBSL—DV~ROPID - 9 1*4 EMBSLHD"SID 
MBST~DV_NAME - 4 I*2 EMBSW"DV"BCNT 
MBSW~DV~BOF F - 9 C It? EMBSW"DV-ERRCNT | 
MBSW~ DV" FUNC - A 12 EMBSW"DVSTS 
MBSW~DV"UNIT -00 1*2 EMBSW"HD-ENTRY 
EMBSWMD-ERRSEQ AP- @.*l LUN 
RCR - 62 I*4 RDBA 
RDBC - 1*4 RDCRC 
RDDB - £4 I*4 RESPONSE_BITS 
RSR ~O00002EC 14 SELECTED"MAP_REGISTER 


axe SSS 7 = -e 


4 | 
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7E 1*4 UCBSL_DEVDEPEND - $4 I*4 UCBSL_LR_DPN 
5 1*4 UCBSL_LR_DPR - 2 I*4 UCBSL_LR_FMPR 
1*4 UCBSL_LR_PMPR - 7A 1*4 UCBSL-TRIGBLK 
ARRAYS 
Address Type Name Bytes Dimensions 
L*l EMB 218 (0:511) 
I*4 EMBSL_DV_REGSAV 420 (0:104) 
1e4 EMBSO-HD~T IME (2) | 
CHAR RESPORSE-A 11 (0:3) 
CHAR Or er ONse 11 (0:3) 
CHAR VIRCR g08 (0:7) | 
CHAR VIRSR $3 (4:15) 
CHAR V2RCR 9 (13:15) 
LABELS 
Address Label Address Label Address Label Address Label Address’ Label Address Label 
1=-0000007A 10° 1-00000087 15° 1-00000095 20' 1=000000A1 i 1-000000AD 30° 1-00000089 35° 
1-000000C5 40° 1-000000D1 45° 1-000000DD 50° 1-Q000000E9 55° 1-Q00000EE 65° 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name Type Name 
CALC_MAP CALC_MAP2 1*4 COMPRESS4 1*4 COMPRESSC DHEAD1 FRCTOF 
IRPSC_PID IRP$G_10SB IRP$W_BCNT IRP$W_BOFF I*4 LIBSEXTZV LINCHK 
ORBSL_OWNER OUTPUT PCL11R_Q10 UBA_DATAPATH UBA_MAPP ING UCBS$L_CHAR 


UCB$L_OPCNT UCBSW_ERRCNT UCBSW_STS 


10 


Subroutine PCL11R_Q10 (lun,emb$w_dv_ func) 


include ‘src$:qiocommon.for /nolist' 


byte Lun 
integer*2 emb$w_dv_ func 
integers4 qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
qiocode(1,12) = Zloc(io$_readpblk) 
qiocode(1,33) = Zloc(io$_readl blk) 
do 10,i = 0,63 

qiocode(0,i) = 33 

if (qiocode(1,i) .eq. 0) then 
araqgees ten? = Zloc(qio_string) 
sratt™* 


call irp$w_func (lun,emb$w_dv_fun 
1 giocode(0, LibSextzv(0, 6-embSw_ de func))) 


return 


end 


i 
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PCL11R_Q10 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


Total Space Allocated 


Name 
PCL11R_Q10 


$W_DV_FUNC 
“ABORT 
“ACPCONTROL 
CLEAN 
DEACCESS 
DIAGNOSE 
DSE 


SRaaaae 
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ADLBLK 
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FNCRC 
CKH 
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Attributes 

PIC CON REL LCL § 
PIC CON REL LCL § 
PIC CON REL LCL NOS 
PIC OVR REL GBL § 


Address Type 
-00000200 
4 


4 


ep-9be feiliiss bt aKg 


DISKS 


RD NOWRT 
RD NOWRT 
RD WRT 
RD WRT 


LONG 


“READPBLK 
“READ TRACKD 
ADWTHBUF 


“eer 
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PCL11R_Q10 


3 iy CHAR 10$_W ef PM ee 
me 08a WRI TEWTHBUF 


ARRAYS : 
Address Type Name 
2-00000000 1*4 QIOCODE 512 
LABELS 
Address Label 
ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSW_FUNC I*4 LIBSEXTZV 


COMMAND QUALIFIERS 


/ CHE CK=(NOBOUNDS ET soem 


COMPILATION STATISTICS 


Run Time: 5.69 seconds 
Elapsed Time: 17.88 seconds 
Page Faults: 187 
Dynamic Memory: 193 


Bs 


‘ Bytes Dimensions 
(0:1, 


0:63) 
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CHAR 10$_ wa TEVELR 
CHAR 1OS"WRTTMK 
CHAR Q10- STRING. 


+ 
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